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Hotting Turtle Graphics with the ATARI 1020 Hotter/Printer 

The procedures in this section will enable you to print Logp turtle graphics and/or 
text to the screen and on the Atari 1020 Printer /Plotter at the same time* To do this 
correctly requires that a few points be observed; 

1) All commands to the 1020 should be in a procedure * Optimum results will not be 
obtained in immediate mode* 

2) Prior to running a procedure* 

A) Only one printer should be turned on at a time. When using the plotter, turn 
off any other printer you may have connected* 

B) Forward the paper two or three inches before drawing* This will prevent the 
paper from being sucked up into the printer while it's creating the drawing* 

C) Do not make drawings in the WRAP mode} type WINDOW before running the 
procedure* 

3) Certain steps must be taken in writing the procedures* 

A) The first command of the procedure should be PLON} this opens the 1020 
with a SETWRITE M PJ* 

B) The second procedure needs to be PGRM if you want to print "turtle 
drawings*" PGRM puts the plotter in the graphics mode. 

C) After any command that makes the turtle move (such as FD# BK» SETX# 
HOME, etc.) PLOT should be used* PLOT is not necessary when the turtle's 
heading is only changed (such as RT or LT)* 

3) When using the Plotter in the text mode* 

A) PLOT and PLQFF are used the same as in the graphics mode* 

B) The procedures PL20* FL40» and PL80 are used to select print sizes. The 
1020 always starts with 40 columns in text mode when the PLON command is 
given* 

C) PLABEL prints text in one of four directions and one of 64 sizes* 

D) FLNTYF selects between various sizes of solid and dotted lines* BARF is a 
non-existent procedure* It causes Logo to print an error message if improper 
inputs are given* 

The following example procedure prints all the procedures in the workspace to the 
1020 in 80 column format: 

TO PRINT .PROCEDURES 

PLON 

PL80 

POPS 

PLOFF 

END 



DRAWING WITH COLORED PENS 

The following three procedures - rnTORED. SOU ARES, 1020TREE, and XMAS.TREE - 
are examples for using the 1020 in the graphics mode. 

A) PROCEDURES SHARED BY ALL THREE EXAMPLES? 

1) These procedures enable the plotter to draw in the appropriate color. 

■ 

TO PENBLACK 

( TYPE CHAR 67 CHAR 48 ) 

END 

TO PENBLUE 

( TYPE CHAR 67 CHAR 49 ) 
END 



TO PENRED 

( TYPE CHAR 67 CHAR 51 > 
END 

TO PENGREEN 

( TYPE CHAR 67 CHAR 50 ) 

END 

2) These procedures set the screen turtles' pens to the same colors as the 
plotter's pens. Since PENBLACK is only used to print the procedures by the 
Plotter, we do not use it for the screen turtle. 

TO SETPENS.GREEN 

SETPN 2 

SETPC 2 99 

PENGREEN 

END 

TO SETPENS .BLUE 

SETPN 1 

SETPC 1 56 

PENBLUE 

END 

TO SETPENS.RED 
SETPN 0 . 
SETPC 0 34 
PENRED 
END 

3) The following are general procedures. If PRLIST is used, type the main 
procedure name in place of XXXX. 

TO PRLIST 
PLON 
PGRM 
PENBLACK 

PLON REPEAT 4 CPR 111 

PO tXXXXI 

PLOFF 



TOPGRM 

( TYPE CHAR 27 CHAR 27 CHAR 7 ) 

( PR H M240,0\*I\*M INT i.5 * XCOR % INT |«3 * YCOR ) 
END 

NOTE: In the above procedure the backslash "\" will be visible when typing in the 
program using the Logo editor but will not be visible when exiting the editor and 
printing the procedure to the screen or printer using the SETWRITE command. 
However, if the procedure is PO'd to the screen or SAVED "P: to the printer, the 
backslash will be visible* 




TO PLON 
SETWRITE "P5 
END 

TO PLOFF 
SETWRITE C ] 
END 

TO PLOT 

( PR IF PEN = "PD C"D] C"M3 INT 1.5 * XCOR INT 1.5 * YCOR ) 
END 

PHOME 
PR "M0,0 
END 



B) COLOREDtSQUARES! To create the procedure 
COLORED.SQUARES type all the above procedures plus these: 



TO SQUARE 

REPEAT 4 CFD 50 PLOT RT 903 
END 



TO SQ 

REPEAT 3 [SQUARE FD 30 PLOT RT 360 / S3 



TO COLORED .SQUARES 
PHOME 
^ PLON 
U* PGRM 

SETPENS.GREEN 
}0 PLOT 

SQ 

PU LT 90 FD 50 PLOT 
5tT SETPENS.RED 

PLOT 

PD RT 90 SQ 
*Q PU LT 90 FD 50 PLOT 

SETPENS.BLUE 
PLOT 

PD RT 90 SQ 
PRLIST 
PLOFF 
END 



r 



To run the procedure, type' 




WINDOW 

COLORED.SQUARES 





TO COLORED. SQUARES 

PHOME 

PLON 

PGRM 

SETPENS. GREEN 

PLOT 

SQ 

PU LT 90 FD 50 PLOT 

SETPENS. RED 

PLOT 

PD RT 90 SQ 

PU LT 90 FD 50 PLOT 

SETPENS. BLUE 

PLOT 

PD RT 90 SQ 

PRLIST 

PLOFF 

END 




C) TREE1020! To create the procedure 1020TREE type the following 
procedures found under A) PLON, PLOFF, PGRM, SETPENS.GFJEEN, PENGREEN (or 
whatever color you desire), and PLOT plus these? 

TO TREE JSIZE {LIMIT 

IF JSIZE < tLIMIT [STOP] 

LT 45 FD JSIZE PLOT 

TREE JSIZE * 0,61803 JLIMIT PLOT 

BACK JSIZE PLOT 

RT 90 FD JSIZE PLOT 

TREE :SIZE * 0.61803 JLIMIT PLOT 

BACK JSIZE PLOT 

LT 45 

END 

TO TREE 1020 JSIZE JLIMIT 

PLON 

PGRM 

SETPENS.GREEN 
PLOT 

TREE JSIZE JLIMIT 
PLOT BK JSIZE PLOT 
PU 

PLOFF 
END 

Notice that this procedure does not print out the procedure as well as draw the 
drawing. If you choose to print out the procedure, enter the PRLIST procedure from A) 
and in the procedure TREE 1020 replace PU with PRLIST. 

The parameter SIZE refers to the siie of the first branch. You may experiment with 
this. 64 will fill the screen. The parameter LIMIT sets the number of branchings at 
each major joint, A 2 here will create a tree that looks like parsley. The 0.61803 
factor may be altered, also. It is the ratio of the length of each successive branch to 
the previous one. 

An example of one way to run this procedure isJ 



WINDOW 
TREE 1020 64 2 




D) XMASTREE! To create the procedure XMASTREE type the following 
procedures found under A) PLON, PGRM, SETPENS. GREEN, PENGREEN, PENBLACK, 
PLOT, PRLIST, PHOME and PLOFF plus these! 

TO TREE 

LT 90 FD 60 PLOT 

REPEAT 5 CRT 135 FD 25 PLOT LT 135 FD 10 PLOT] 
RT 135 FD 25 PLOT 
RT 90 

REPEAT 6 CFD 25 PLOT RT 135 FD 10 PLOT LT 135] 
RT 135 FD 55 PLOT 



END 



TO TRUNK 

REPEAT 2 CLT 90 FD 

END 



PLOT LT 90 FD 15 



f 

Si 



TO XMASTREE 
PHOME 
PLON 
PGRM 

SETPENS.GREEN 

PLOT 

TREE 




To run this 



PLOT 

TRUNK 

PRLIST 

PLOFF 

END 

simply type 
WINDOW 





TO XMAS. Ti^EE 

PH0HE 

PLON 

PGRM 

SETPENS. GREEN 



TREE 

PENBLACK 

PLOT 

TRUNK 

PRLIST 

PLOFF 

END 



ADDITIONAL PROCEDURES 



1) PHOME5 this procedure is used to move the Plotter pen without leaving a trail, as 
in HOME on the screen. 




TO PHOME 
PR "M0,0 
END 

Here is an example, drawing three variations of the procedure SQUIRAL one on top of 
the other, in different pen colors. 

Begin by typing in the following procedures found in A) PLON, PGRM, SETPENS.RED, 
PENRED, SETPENS .BLUE , PENBLUE, SETPENS .GREEN, PENGREEN, PLOT, PLOFF, and 
the above procedure PHOME, Add to this the following; 

TO SQUIRAL JANGLE 
MAKE "SIDE 0 

REPEAT 100 CFD 5SIDE PLOT RT .ANGLE MAKE "SIDE {SIDE + 
23 

END 



TO DESIGNS 

PLON 

PGRM 

SETPENS .RED 
PLOT 

SQUIRAL 69 
HOME 

PU PHOME PLOT 
SETPENS .BLUE 
PLOT 

PD RT 90 SQUIRAL 143 
HOME 

PU PHOME PLOT 
SETPENS .GREEN 
PLOT 

PD RT 90 SQUIRAL 1 79 
PU 

PLOFF 
END 



To create this example, type? 

WINDOW 
DESIGNS 







1^ 



3) DIFFERENT WRITING STYLES* To change the size of type on a text use the 
following procedures: 

TO PLSO 

( TYPE CHAR 27 CHAR 27 CHAR 19 ) 
END 

TO PL40 

( TYPE CHAR 27 CHAR 27 CHAR 14 ) 
END 

TO PL20 

( TYPE CHAR 27 CHAR 27 CHAR 16 ) 
END 

The "30" refers to small type (80 columns) and the 20 to large type (20 columns). The 
1020 will automatically print 40 columns unless told to do otherwise. 

TO PRLIST.80 JPNAME 

PLON 

PLSO 

PO JPNAME r ° COLORED. ^fiRES 

PLON 

PLOFF pgwi 

SETPENS.uREEN 

bJMD pi_D r 

sa 

P'J LT 32 FD 5C PLOT 

SETPENS. ^ED 

PLGT 

PD RT 32 SGI 
PU LT 32 FD 53 PLL r 
SETT ENS. SLUE 
PLOT 

PD RT 32 SQ 

PL20 

po :pname e^' f 

PLOFF 
END 



r 0 'J£ TPEf IS . u??£EN 
SETPN 2 
ZZ 7PC 2 33 
PENG3EEN 



TO PRLIST.20 t 



TO SETPENS a GREEN 
SETPN 2 
SETPC 2 99 
PENGREEN 



ND 




2) PLNTYP ? as described on the first page of this DEMOPAC, this procedure selects 
between various sizes of solid and dotted lines* between 0 (dots) to 15 (broken lines). 
Here is an example using SQUIRAL. Type in the following procedures under A) FLON, 
PGRM, PLOT, PLOFF SETPENS.BLUE, PENBLUE (or whatever color) and PHOME and 
SQUIRAL from the previous page. Then type these? 

TO PLNTYP 5TYP 

IF OR ( tTYP < 0 X tTYP > 15 ) CBARF] 

( PR "L INT tTYP ) 

END 

TO SQUIRAL.PLN tSIZE JTYP 

PHOME 

PLOT 

PD 

PLON 
PGRM 
PLOT 

SET PENS .BLUE 
PLOT 

PLNTYP tTYP 
PLOT 

SQUIRAL 'SIZE 
PLOT 
PLOFF 
END 

To create this example, type'. 

WINDOW 

SQUIRAL.PLN 89 3 




4) PLABEL? This procedure is used to change the direction or size of print (other than 
the 20, 40 or 80 column sizes). The text can be printed vertically or horizontally in 
four directions. The variable ANGL can vary from 0 to 3, corresponding to the four 
directions of the compas (0 = west, 1 = south, 2 = east and 3 - north). 

The variable SIZE can be a number from 0 to 64. Here is the basic procedure! 

TO PLABEL JANGL JSIZE JLIST 

IF NOT MEMBERF J ANGL CO 1 2 33 [BARF 1 

( PR "Q {ANGL "# "S INT 'SIZE "* "P JLIST ) 

( PR "M INT 1 .5 * XCOR INT 1 .5 * YCOR ) 

END 

this procedure is used to print text it is a graphics operation, and PGRM 
I, as in printing graphics. Here are two examples: 

TO WRITESIZE JSIZE 5NAME 
PLON 
PGRM 

PLABEL 1 JSIZE 5NAME 
PLOFF 



Althou 
must 



The example to the right was done by typing WRITESIZE 20 "LOGO. 




I 




5 




TO WRITEX JNAME 
PLON 



3 5 JNAME 



PLABEL 0 5 JNAME 
PENRED PGRM PLABEL 1 5 JNAME 
PENBLUE PGRM PLABEL 2 5 JNAME 
PENGREEN PGRM 
PLOFF 
END 



This example was created by typing WRITEX " 



/ 



CD 



0901 




0G0 




LJ 



SCREENDUMP TO EPSON GRAPHICS PRINTER (MX-80) 
Copyright (C) 1293 by Brian Harvey 

Note! This drogram will be published in a forthcoming book of Logo projects by the 
Atari Cambridge Research Laboratory, It is provided for your personal use and not 
for publication. 

Create your turtle drawings in the usual way, then type EPSON to copy the graphics 
screen to the printer ( Epson MX-80 only ). The full graphics screen is printed to the 
printer, even if your display screen is in the split screen or text screen mode, 

TO EPSON 
SETWRITE "P: 
TYPE CHAR 27 
TYPE "A 
TYPE CHAR 6 
EPLINES 16384 48 
TYPE CHAR 27 
PR "@ 

SETWRITE CI 
END 

TO EPLINES tLOC JNUM 

if jntjm = 0 ESTOP] 

EPLINE JLOC 40 0 
PR CD 

EPLINES JLOC + 80 JNUM - 1 
END 

TO EPLINE JLOC JBYTES {SPACE 

IF JBYTES < 3 CEPBYTE 65536 * .EXAMINE JLOC 65536 * .EXAMINE JLOC + 40 STOP] 
EPBYTE EXAMS JLOC EXAMS JLOC + 40 
EPLINE JLOC + 3 JBYTES - 3 JSPACE 
END 

TO EPBYTE 5BYTE1 JBYTE2 

IF AND JBYTEl = 0 JBYTE2 = 0 CMAKE "SPACE JSPACE + 1 STOP] 

REPEAT JSPACE CTYPE "WW] 

MAKE "SPACE 0 

TYPE CHAR 27 

TYPE "K 

TYPE CHAR 24 

TYPE CHAR 0 

EPBYTE 1 JBYTEl JBYTE2 4194304 
END 

TO EPBYTE 1 JBYTEl JBYTE2 JPOS 

TYPE2 CHAR (IF JBYTEl > <5POS-l)C56]C0]) + (IF JBYTEl > (JPOS - DC71C0]) 
IF JPOS = 1 CSTOP] 

EPBYTE 1 REMAINDER JBYTEl JPOS REMAINDER JBYTE2 JPOS JPOS/4 
END 

TO EXAM3 JLOC 

OP65536 * (.EXAMINE JLOC) + 256 * (.EXAMINE JLOC + 1) + .EXAMINE JLOC + 2 
END 

TO TYPE2 5CHAR 
TYPE JCHAR 
TYPE JCHAR 



